library(plyr)
source("functions.R")

study <- read.csv("study1.csv")
replication <- read.csv("study2.csv")

# combined data set
full <- rbind.fill(study, replication)

full$pcthisp.zip <- full$pcthisp.zip*100
full$pctwhite.zip <- full$pctwhite.zip*100
full$pctblack.zip <- full$pctblack.zip*100
full$pctasian.zip <- full$pctasian.zip*100

full$pointshisp <- full$pointshisp*100
full$pointswhite <- full$pointswhite*100
full$pointsblack <- full$pointsblack*100
full$pointsasian <- full$pointsasian*100

full$ch2hisp <- full$ch2hisp*100
full$ch2white <- full$ch2white*100
full$ch2black <- full$ch2black*100
full$ch2asian <- full$ch2asian*100

